 1  ONERR  GOTO 1500
 10 AD = 27136: REM LECTURE/ECRITURE A PARTIR DE $6A00
 20  GOSUB 2000
 30  &  RECALL "DATA.SPELLS",8064: &  RECALL "DATA.TRAPS",8165
 40  &  RECALL "DATA.MONSTERS",19804: &  RECALL "LIBRARY.SPRITE",3009
 100  FOR I = 1 TO 4:A$ = "MAP#" +  STR$ (I): &  RECALL A$,AD + (I - 1) * 2483: NEXT I
 200  FOR I = 1 TO 3:A$ = "DJN#" +  STR$ (I): &  RECALL A$,AD + (3 + I) * 2483: NEXT I
 300  GOSUB 1000
 350  REM  CARTE DE SAUVEGARDE
 360  REM  &DEL
 400 J = 4:B$ = "MAP-": GOSUB 3000
 410 J = 3:B$ = "DJN-": GOSUB 3000
 500  REM  &STORE
 510 J = 4:B$ = "MAP-":VL =  - 1: GOSUB 4000
 520 J = 3:B$ = "DJN-":VL = 3: GOSUB 4000
 600  REM  CARTE COURANTE
 610  REM   &DEL 
 620 J = 4:B$ = "MAP.": GOSUB 3000
 630 J = 3:B$ = "DJN.": GOSUB 3000
 700  REM &STORE
 710 J = 4:B$ = "MAP.":VL =  - 1: GOSUB 4000
 720 J = 3:B$ = "DJN.":VL = 3: GOSUB 4000
 900  &  RUN "COMB",24576
 1000  HOME : &  READ "PLAYER": INPUT F$: &  END 
 1010  IF F$ = "*BLANKPLAYER*" OR F$ = "*START*" THEN  HOME : HTAB 9: VTAB 10: PRINT "INSEREZ LE PLAYER, SVP": WAIT  - 16384,128: POKE  - 16368,0: GOTO 1000
 1020  RETURN 
 1500  CALL 50688
 2000  HOME : &  READ "PLAYER": INPUT F$: &  END 
 2010  IF F$ <  > "*START*" THEN  HOME : HTAB 6: VTAB 10: PRINT "INSEREZ LE DISK DE BOOT, SVP": WAIT  - 16384,128: POKE  - 16368,0: GOTO 2000
 2020  RETURN 
 3000  FOR I = 1 TO J:A$ = B$ +  STR$ (I): &  DEL A$: NEXT I
 3010  RETURN 
 4000  FOR I = 1 TO J:A$ = B$ +  STR$ (I): &  STORE A$,AD + (VL + I) * 2483,2483: NEXT I
 4010  RETURN 
